home *** CD-ROM | disk | FTP | other *** search
- 100 (NULL)
- 110 (NULL)(10,10,6,12)
- 120 (NULL)(1,1,0,32,40,40)
- 130 a$="this is"+chr$(13)+"a test."
- 140 (NULL)(1,a$)
- 150 get t$:if t$<>" " then 150
- 160 (NULL)(3,2)
- 170 for i=1 to 4: (NULL)(i,2)
- 180 for j=1 to 20: next j: next i
- 190 get t$: if t$<>" " then 170
- 200 (NULL)(3)
-